10 PRINT "EXAMPLE 3-11-2 FLOW OUT OF SLOT": PRINT
12 PRINT : PRINT "EXAMPLE 3-11-2 FLOW OUT OF SLOT": PRINT
20 DEFINT I, N
30 READ VO, HO, AR, CD, B, DX, G, N: DATA 20.,20.,.5,.85,.02,.25,32.2,4
40 PRINT "   INPUT DATA FOR PROBLEM": PRINT
50 PRINT : PRINT "VO,HO,AR,CD,B,DX,G,N="; VO, HO; AR; CD; B; DX; G; N
60 PRINT : PRINT "   SOLUTION TABLE FOR FLOW OUT OF A SLOT"
70 PRINT : PRINT "  HEAD VELOCITY    X    Q/FT  OUT": PRINT
80 H = HO: V = VO: X = 0!: I = 0: PRINT USING "###.###   "; H; V; X; Q
90 C1 = CD * B * DX / AR
100 C2 = C1 * SQR(2! * G * H): OV = V: U11 = C2 * V / G: U12 = -C2
110 C2 = C1 * SQR(2! * G * (H + U11)): U21 = C2 * (V + U12) / G: U22 = -C2
120 H = H + .5 * (U11 + U21): V = V + .5 * (U12 + U22): X = X + DX: Q = CD * B * SQR(2! * G * H)
130 I = I + 1: IF I MOD N = 0 THEN PRINT USING "###.###   "; H; V; X; Q
140 IF V > 0! THEN 100 ELSE S = OV * DX / (OV - V)
150 PRINT : PRINT "LENGTH OF SLOT= "; S + X - DX; " FT."